Unit NormalBarkodBas;

Interface

Uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB, ppDB, ppDBPipe, ppComm, ppRelatv, ppProd, ppClass, ppReport,
  StdCtrls, ppPrnabl, ppCtrls, ppBarCod, ppBands, ppCache, ppTxPipe,
  ppModule, raCodMod, daDataModule, Buttons, Mask, wwdbedit, Wwdotdot,
  Wwdbcomb;

Type
  TNormalBarkodBasF = Class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    ComboBox1: TComboBox;
    Memo1: TMemo;
    Label7: TLabel;
    BitBtn1: TBitBtn;
    Label10: TLabel;
    kolonsayisik: TEdit;
    Label9: TLabel;
    Edit7: TEdit;
    ppReport1: TppReport;
    ppDetailBand1: TppDetailBand;
    ppBarCode1: TppDBBarCode;
    ppTextPipeline1: TppTextPipeline;
    field1: TppField;
    Procedure Button1Click(Sender: TObject);
    Procedure ppReport1PreviewFormClose(Sender: TObject);
    Procedure BitBtn1Click(Sender: TObject);
    Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  NormalBarkodBasF: TNormalBarkodBasF;

Implementation

{$R *.DFM}

Procedure TNormalBarkodBasF.Button1Click(Sender: TObject);
Var
  i: integer;
Begin
  ppTextPipeline1.FileName := edit7.text;

  If ComboBox1.Text = 'Evet' Then
    ppBarCode1.PrintHumanReadable := true
  Else
    ppBarCode1.PrintHumanReadable := false;

  ppreport1.columns := strtoint(kolonsayisik.Text);

  ppreport1.Print;
End;

Procedure TNormalBarkodBasF.ppReport1PreviewFormClose(Sender: TObject);
Begin
  ppTextPipeline1.Close;
End;

Procedure TNormalBarkodBasF.BitBtn1Click(Sender: TObject);
Begin
  close;
End;

Procedure TNormalBarkodBasF.FormClose(Sender: TObject;
  Var Action: TCloseAction);
Begin
  Action := CaFree;
  NormalBarkodBasF := Nil;
End;

End.
